home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / biblio / tib / inputs / stdftp.ttx < prev    next >
Text File  |  1989-03-28  |  14KB  |  177 lines
  1. %standard reference formatting macros (plain TeX)
  2. %flag, author, title, etc., volume, pages, date, gov't no., other
  3. %citation flag is superscript
  4. %
  5. %note: remove characters (%%%) from lines below (6 times)
  6. %%%            \if\Ttest\present\bgroup``\Titlefont\Tstr\egroup," \fi%
  7. %if titles desired in loc. cit.
  8.  
  9. \def\Flagstyle#1{\hangindent\parindent\indent\hbox to0pt{\hss\raise1ex\hbox{\Flagfont#1}\kern.5em}}%flag style
  10.  
  11. \def\journalarticleformat{\footnote{}{\Reffont\let\uchyph=1\parindent=0pt\def\Comma{}%
  12.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  13.       \if\Ftest\present\Flagstyle\Fstr\fi%
  14.           \if\Loccittest\present\if\Ibidtest\present{\it ibid.}\else%
  15.            \if\Atest\present\bgroup\Authfont\Astr\egroup, \fi%
  16. %%%           \if\Ttest\present\bgroup``\Titlefont\Tstr\egroup," \fi%
  17.               {\it loc.\ cit.}\fi%
  18.             \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip.\fi\else%
  19.        \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }\fi%
  20.         \if\Ttest\present\Comma\bgroup``\Titlefont\Tstr\egroup\def\Comma{," }\fi%
  21.          \if\etest\present\if\Ttest\present{"}\fi\hskip.2em(\bgroup\estr\egroup)\def\Comma{\unskip, }\fi%
  22.           \if\Jtest\present\Comma\bgroup\Tomefont\Jstr\/\egroup\def\Comma{, }\fi%
  23.            \if\Vtest\present\if\Jtest\present\hskip.2em\else\Comma\fi\bgroup\Volfont\Vstr\egroup\def\Comma{, }\fi%
  24.             \if\Dtest\present\hskip.2em(\bgroup\Dstr\egroup)\def\Comma{, }\fi%
  25.              \if\Ptest\present\bgroup, \Pstr\egroup\def\Comma{, }\fi%
  26.               \if\ttest\present\Comma\bgroup``\Titlefont\tstr\egroup\def\Comma{," }\fi%
  27.                \if\jtest\present\Comma\bgroup\Tomefont\jstr\/\egroup\def\Comma{, }\fi%
  28.                 \if\vtest\present\if\jtest\present\hskip.2em\else\Comma\fi\bgroup\Volfont\vstr\egroup\def\Comma{, }\fi%
  29.                  \if\dtest\present\hskip.2em(\bgroup\dstr\egroup)\def\Comma{, }\fi%
  30.                   \if\ptest\present\bgroup, \pstr\egroup\def\Comma{, }\fi%
  31.                    \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  32.                     \if\Otest\present\Comma\bgroup\Ostr\egroup\fi%
  33.                      \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip\fi.\fi}}
  34.  
  35. \def\conferencereportformat{\footnote{}{\Reffont\let\uchyph=1\parindent=0pt\def\Comma{}%
  36.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  37.       \if\Ftest\present\Flagstyle\Fstr\fi%
  38.           \if\Loccittest\present\if\Ibidtest\present{\it ibid.}\else%
  39.            \if\Atest\present\bgroup\Authfont\Astr\egroup, \fi%
  40. %%%           \if\Ttest\present\bgroup``\Titlefont\Tstr\egroup," \fi%
  41.               {\it loc.\ cit.}\fi%
  42.             \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip.\fi\else%
  43.        \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }\fi%
  44.         \if\Ttest\present\Comma\bgroup``\Titlefont\Tstr\egroup\def\Comma{," }\fi%
  45.          \if\Jtest\present\Comma\bgroup\Tomefont\Jstr\/\egroup\def\Comma{, }\fi%
  46.           \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  47.            \if\Dtest\present\hskip.2em(\bgroup\Dstr\egroup)\def\Comma{, }\fi%
  48.             \if\Otest\present\Comma\bgroup\Ostr\egroup\fi%
  49.              \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip\fi.\fi}}
  50.  
  51. \def\bookarticleformat{\footnote{}{\Reffont\let\uchyph=1\parindent=0pt\def\Comma{}%
  52.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  53.       \if\Ftest\present\Flagstyle\Fstr\fi%
  54.           \if\Loccittest\present\if\Ibidtest\present{\it ibid.}\else%
  55.            \if\Atest\present\bgroup\Authfont\Astr\egroup, \fi%
  56. %%%           \if\Ttest\present\bgroup``\Titlefont\Tstr\egroup," \fi%
  57.               {\it loc.\ cit.}\fi%
  58.             \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip.\fi\else%
  59.        \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }\fi%
  60.         \if\Ttest\present\Comma\bgroup``\Titlefont\Tstr\egroup\def\Comma{," }\fi%
  61.          \if\etest\present\if\Ttest\present"\fi\hskip.2em(\bgroup\estr\egroup)\def\Comma{\unskip, }\fi%
  62.           \if\Btest\present\Comma in \bgroup\Tomefont\Bstr\/\egroup\def\Comma{\unskip, }\fi%
  63.            \if\otest\present\ \bgroup\ostr\egroup\def\Comma{, }\fi%
  64.             \if\Etest\present\Comma\bgroup\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{, }\fi%
  65.              \if\Stest\present\Comma\bgroup\Sstr\egroup\def\Comma{, }\fi%
  66.               \if\Vtest\present\bgroup\hskip.2em\#\Volfont\Vstr\egroup\def\Comma{, }\fi%
  67.                \if\Ntest\present\bgroup\hskip.2em\#\Volfont\Nstr\egroup\def\Comma{, }\fi%
  68.                 \if\Itest\present\Comma\bgroup\Istr\egroup\def\Comma{, }\fi%
  69.                  \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  70.                   \if\Dtest\present\Comma\bgroup\Dstr\egroup\def\Comma{, }\fi%
  71.                    \if\Ptest\present\Comma\Pstr\def\Comma{, }\fi%
  72.                     \if\ttest\present\Comma\bgroup``\Titlefont\Tstr\egroup\def\Comma{," }\fi%
  73.                      \if\btest\present\Comma in \bgroup\Tomefont\bstr\egroup\def\Comma{, }\fi%
  74.                       \if\atest\present\Comma\bgroup\astr\egroup\unskip, \if\acnt\present eds.\else ed.\fi\def\Comma{, }\fi%
  75.                        \if\stest\present\Comma\bgroup\sstr\egroup\def\Comma{, }\fi%
  76.                         \if\vtest\present\bgroup\hskip.2em\#\Volfont\vstr\egroup\def\Comma{, }\fi%
  77.                          \if\ntest\present\bgroup\hskip.2em\#\Volfont\nstr\egroup\def\Comma{, }\fi%
  78.                         \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{, }\fi%
  79.                          \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{, }\fi%
  80.                           \if\dtest\present\Comma\bgroup\dstr\egroup\def\Comma{, }\fi%
  81.                            \if\ptest\present\Comma\pstr\def\Comma{, }\fi%
  82.                             \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  83.                              \if\Otest\present\Comma\bgroup\Ostr\egroup\fi%
  84.                               \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip\fi.\fi}}
  85.  
  86. \def\bookformat{\footnote{}{\Reffont\let\uchyph=1\parindent=0pt\def\Comma{}%
  87.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  88.       \if\Ftest\present\Flagstyle\Fstr\fi%
  89.           \if\Loccittest\present\if\Ibidtest\present{\it ibid.}\else%
  90.            \if\Atest\present\bgroup\Authfont\Astr\egroup, %
  91.                 \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi, %
  92.                       \else\if\Itest\present\bgroup\Authfont\Istr\egroup, \fi\fi\fi%
  93. %%%           \if\Ttest\present\bgroup``\Titlefont\Tstr\egroup," \fi%
  94.               {\it loc.\ cit.}\fi%
  95.             \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip.\fi\else%
  96.        \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }%
  97.             \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{, }%
  98.                   \else\if\Itest\present\bgroup\Authfont\Istr\egroup\def\Comma{, }\fi\fi\fi%
  99.           \if\Ttest\present\Comma\bgroup\Tomefont\Tstr\/\egroup\def\Comma{\unskip, }%
  100.                 \else\if\Btest\present\Comma\bgroup\Tomefont\Bstr\/\egroup\def\Comma{\unskip, }\fi\fi%
  101.             \if\otest\present\ \bgroup\ostr\egroup\def\Comma{, }\fi%
  102.              \if\etest\present\hskip.2em(\bgroup\estr\egroup)\def\Comma{\unskip, }\fi%
  103.               \if\Stest\present\Comma\bgroup\Sstr\egroup\def\Comma{, }\fi%
  104.                \if\Vtest\present\bgroup\hskip.2em\#\Volfont\Vstr\egroup\def\Comma{, }\fi%
  105.                 \if\Ntest\present\bgroup\hskip.2em\#\Volfont\Nstr\egroup\def\Comma{, }\fi%
  106.                  \if\Atest\present\if\Itest\present
  107.                          \Comma\bgroup\Istr\egroup\def\Comma{\unskip, }\fi%
  108.                       \else\if\Etest\present\if\Itest\present
  109.                               \Comma\bgroup\Istr\egroup\def\Comma{\unskip, }\fi\fi\fi%
  110.                      \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  111.                       \if\Dtest\present\Comma\bgroup\Dstr\egroup\def\Comma{, }\fi%
  112.                        \if\ttest\present\Comma\bgroup\Tomefont\tstr\egroup\def\Comma{, }%
  113.                              \else\if\btest\present\Comma\bgroup\Tomefont\bstr\egroup\def\Comma{, }\fi\fi%
  114.                           \if\stest\present\Comma\bgroup\sstr\egroup\def\Comma{, }\fi%
  115.                            \if\vtest\present\bgroup\hskip.2em\#\Volfont\vstr\egroup\def\Comma{, }\fi%
  116.                             \if\ntest\present\bgroup\hskip.2em\#\Volfont\nstr\egroup\def\Comma{, }\fi%
  117.                              \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{, }\fi%
  118.                               \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{, }\fi%
  119.                                \if\dtest\present\Comma\bgroup\dstr\egroup\def\Comma{, }\fi%
  120.                                 \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  121.                                  \if\Otest\present\Comma\bgroup\Ostr\egroup\fi%
  122.                                   \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip\fi.\fi}}
  123.  
  124. \def\technicalreportformat{\footnote{}{\Reffont\let\uchyph=1\parindent=0pt\def\Comma{}%
  125.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  126.       \if\Ftest\present\Flagstyle\Fstr\fi%
  127.           \if\Loccittest\present\if\Ibidtest\present{\it ibid.}\else%
  128.            \if\Atest\present\bgroup\Authfont\Astr\egroup, %
  129.                 \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi, %
  130.                       \else\if\Itest\present\bgroup\Authfont\Istr\egroup, \fi\fi\fi%
  131. %%%           \if\Ttest\present\bgroup``\Titlefont\Tstr\egroup," \fi%
  132.               {\it loc.\ cit.}\fi%
  133.             \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip.\fi\else%
  134.        \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }%
  135.             \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{, }%
  136.                   \else\if\Itest\present\bgroup\Authfont\Istr\egroup\def\Comma{, }\fi\fi\fi%
  137.           \if\Ttest\present\Comma\bgroup``\Titlefont\Tstr\egroup\def\Comma{," }\fi%
  138.            \if\Atest\present\if\Itest\present
  139.                    \Comma\bgroup\Istr\egroup\def\Comma{, }\fi%
  140.                 \else\if\Etest\present\if\Itest\present
  141.                         \Comma\bgroup\Istr\egroup\def\Comma{, }\fi\fi\fi%
  142.             \if\Rtest\present\Comma\bgroup\Rstr\egroup\def\Comma{, }\fi%
  143.              \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  144.               \if\Dtest\present\Comma\bgroup\Dstr\egroup\def\Comma{, }\fi%
  145.                \if\ttest\present\Comma\bgroup``\Titlefont\tstr\egroup\def\Comma{," }\fi%
  146.                 \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{, }\fi%
  147.                  \if\rtest\present\Comma\bgroup\rstr\egroup\def\Comma{, }\fi%
  148.                   \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{, }\fi%
  149.                    \if\dtest\present\Comma\bgroup\dstr\egroup\def\Comma{, }\fi%
  150.                     \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  151.                      \if\Otest\present\Comma\bgroup\Ostr\egroup\fi%
  152.                       \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip\fi.\fi}}
  153.  
  154. \def\otherformat{\footnote{}{\Reffont\let\uchyph=1\parindent=0pt\def\Comma{}%
  155.                 \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
  156.       \if\Ftest\present\Flagstyle\Fstr\fi%
  157.           \if\Loccittest\present\if\Ibidtest\present{\it ibid.}\else%
  158.            \if\Atest\present\bgroup\Authfont\Astr\, egroup%
  159.                 \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi, %
  160.                       \else\if\Itest\present\bgroup\Authfont\Istr\egroup, \fi\fi\fi%
  161. %%%           \if\Ttest\present\bgroup``\Titlefont\Tstr\egroup," \fi%
  162.               {\it loc.\ cit.}\fi%
  163.             \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip.\fi\else%
  164.        \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\unskip, }%
  165.             \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{, }%
  166.                   \else\if\Itest\present\bgroup\authfont\Istr\egroup\def\Comma{, }\fi\fi\fi%
  167.           \if\Ttest\present\Comma\bgroup``\Titlefont\Tstr\egroup\def\Comma{," }\fi%
  168.             \if\Atest\present\if\Itest\present
  169.                     \Comma\bgroup\Istr\egroup\def\Comma{, }\fi%
  170.                  \else\if\Etest\present\if\Itest\present
  171.                          \Comma\bgroup\Istr\egroup\def\Comma{, }\fi\fi\fi%
  172.                  \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{, }\fi%
  173.                   \if\Dtest\present\Comma\bgroup\Dstr\egroup\def\Comma{, }\fi%
  174.                    \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{, }\fi%
  175.                     \if\Otest\present\Comma\bgroup\Ostr\egroup\fi%
  176.                      \if\Ztest\present\bgroup\ignorespaces\Zstr\egroup\gdef\Ztest{}\unskip\fi.\fi}}
  177.